' C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup
' C:\Users\%AKTUELLER-USER%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup ???
' Aufruf fuer Debug: cscript ipVBS.vbs
Dim Erfolgreich
Dim Debug
Debug = false 'true false
Dim TF(5)
TF(1) = "FALSCH"
TF(0) = "WAHR"

Dim SystemStart
SystemStart = Now()

'**********************************
Sub IP_Lesen
' Alle Elemente hier klappen
Dim http
Dim Antwort
Dim URL
Dim Jetzt
Dim Ende
 
 Set oShell    = WScript.CreateObject("WScript.Shell")
 Set oShellEnv = oShell.Environment("Process")


URL = "https://infoseca.ch/ip"
    Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    http.Open "GET", URL, False
    http.setRequestHeader "Content-Type", "text/JSON"
    http.setRequestHeader "User-Agent", "******** " & SystemStart & " ******** Seo's VBS Aufruf aus: " & oShellEnv("COMPUTERNAME") & "  User:" & oShellEnv("USERNAME")
    http.Send


 Antwort = http.ResponseText
 If Debug Then WScript.Echo Antwort
 Erfolgreich = True
  
 If Len(Antwort) > 20 Then Erfolgreich = False  ' index.php muss klein sein 
 If Debug Then  WScript.echo "Erfolgreich =", TF(Erfolgreich+1)," Laenge von Antwort=",Len(Antwort)

End sub
'**********************************


'**********************************
Sub Versuchen
Dim T
Dim i
Dim Sekunden

 If Debug Then  
   Sekunden = 1 
 Else 
   Sekunden = 200
 End If

T = Timer

Ende = T + (Sekunden)  ' Ende = T + (200)

Do
  If Timer > Ende Then 
  	IP_Lesen
  	If Erfolgreich Then Exit do
  	' MsgBox  Erfolgreich
  	c = MsgBox ("Die Zeit f?r eine Verbindung ist abgelaufen" & vbcrlf & "Nochmals versuchen?",1)
  	If c <> "1" Then Exit Do
  	T = Timer
        Ende = T + (120)
   End If	
loop

End Sub
'**********************************

Versuchen